home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Utilities / Cursors / BullsEyeFindCursor ƒ / BullsEyeFindCursor.c next >
Encoding:
C/C++ Source or Header  |  1994-05-20  |  1.3 KB  |  45 lines  |  [TEXT/ttxt]
  1. /* BullsEyeFindCursor.c -
  2.     by: David Phillip Oster
  3.     email: oster@netcom.com
  4.     date: 5/20/94
  5.     distribution: This file is hereby placed in the public domain.
  6.     notes:
  7.     An fkey to make it easier to spot the mouse cursor.
  8.     Install this as a Code resource, FKEY 9, in your System file.
  9.     Written for a friend who loses her cursor on the Mac's screen.
  10.     This program doesn't need MacTraps.
  11.  */
  12.  
  13. /* main
  14.  */
  15. pascal void main(void){
  16.     WindowPtr    win;        /* we'llbe drawing here, It'll be the window manager port */
  17.     WindowPtr    savePort;    /* save and restore the port we came in on */
  18.     short        saveMode;    /* save and restore the window manager port's drawing mode */
  19.     short        i;            /* loop counter, number of concentric rings */
  20.     short        j;            /* loop counter, number of repeats. even number erases */
  21.     long        dontCare;    /* delay wants to tell us something we don't care about */
  22.     Rect        r;            /* bounds of our circle */
  23.     Point        p;            /* the mouse point */
  24.  
  25.     GetPort(&savePort);
  26.     GetWMgrPort(&win);
  27.     if(nil == win){
  28.         return;
  29.     }
  30.     SetPort(win);
  31.     GetMouse(&p);
  32.     saveMode = win->pnMode;
  33.     PenMode(patXor);
  34.     for(j = 0 ; j < 4; j++){
  35.         botRight(r) = topLeft(r) = p;
  36.         InsetRect(&r, -1, -1);
  37.         for(i = 0 ; i < 24; i++){
  38.             InsetRect(&r, -4, -4);
  39.             PaintOval(&r);
  40.             Delay(1, &dontCare);
  41.         }
  42.     }
  43.     PenMode(saveMode);
  44.     SetPort(savePort);
  45. }